home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / doc / tmac / block.awk next >
Encoding:
AWK Script  |  1990-03-01  |  536 b   |  23 lines
  1. BEGIN {
  2.     firstchar = "@";
  3.     a["a"] = "A"; a["b"] = "B"; a["c"] = "C";
  4.     a["d"] = "D"; a["e"] = "E"; a["f"] = "F";
  5.     a["g"] = "G"; a["h"] = "H"; a["i"] = "I";
  6.     a["j"] = "J"; a["k"] = "K"; a["l"] = "L";
  7.     a["m"] = "M"; a["n"] = "N"; a["o"] = "O";
  8.     a["p"] = "P"; a["q"] = "Q"; a["r"] = "R";
  9.     a["s"] = "S"; a["t"] = "T"; a["u"] = "U";
  10.     a["v"] = "V"; a["w"] = "W"; a["x"] = "X";
  11.     a["y"] = "Y"; a["z"] = "Z";
  12. }
  13.  
  14. {
  15.     c = substr($2,2,1);
  16.     if (c >= "a" && c <= "z")
  17.         c = a[c];
  18.     if (c != firstchar)
  19.         printf(".LB %s\n", c);
  20.     firstchar = c;
  21.     print;
  22. }
  23.